Prerrequisites

library(modeltime)
library(tidyverse)
library(lubridate)
library(timetk)
library(parsnip)
library(rsample)
library(reactable)

interactive <- TRUE

1 Collect data and split into training and test sets

Fetching the data:

m750 <- m4_monthly %>% filter(id == "M750")

Plotting it:

m750 %>%
  plot_time_series(date, value, .interactive = interactive)
Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
LS0tDQp0aXRsZTogImBtb2RlbHRpbWVgIHR1dG9yaWFsIg0KYXV0aG9yOiAiUGFibG8gQmVuYXZpZGVzLUhlcnJlcmEiDQpvdXRwdXQ6IA0KICBodG1sX25vdGVib29rOg0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIHRoZW1lOiB1bml0ZWQNCiAgICBoaWdobGlnaHQ6IHRhbmdvDQogICAgbnVtYmVyX3NlY3Rpb25zOiBUUlVFDQotLS0NCg0KIyBQcmVycmVxdWlzaXRlcyB7LX0NCg0KYGBge3IgcGtncywgbWVzc2FnZT1GQUxTRX0NCmxpYnJhcnkobW9kZWx0aW1lKQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KGx1YnJpZGF0ZSkNCmxpYnJhcnkodGltZXRrKQ0KbGlicmFyeShwYXJzbmlwKQ0KbGlicmFyeShyc2FtcGxlKQ0KbGlicmFyeShyZWFjdGFibGUpDQoNCmludGVyYWN0aXZlIDwtIFRSVUUNCmBgYA0KDQojIENvbGxlY3QgZGF0YSBhbmQgc3BsaXQgaW50byB0cmFpbmluZyBhbmQgdGVzdCBzZXRzDQoNCkZldGNoaW5nIHRoZSBkYXRhOg0KDQpgYGB7cn0NCm03NTAgPC0gbTRfbW9udGhseSAlPiUgZmlsdGVyKGlkID09ICJNNzUwIikNCmBgYA0KDQpQbG90dGluZyBpdDoNCg0KYGBge3J9DQptNzUwICU+JQ0KICBwbG90X3RpbWVfc2VyaWVzKGRhdGUsIHZhbHVlLCAuaW50ZXJhY3RpdmUgPSBpbnRlcmFjdGl2ZSkNCmBgYA0KDQo=